home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / utils / batkit50.arj / COLOTONE.BAT < prev    next >
DOS Batch File  |  1988-06-26  |  852b  |  38 lines
  1. echo off
  2. :SELECT
  3. GETKEY /W30/K"CTX"/F"COLOTONE.GKF@S"/E
  4. if errorlevel 88 goto END
  5. if errorlevel 84 goto TONES
  6.  
  7. :COLORS
  8. GETKEY /M"#&0E@C"/W0/N
  9. getkey /f"colotone.GKF@C"/w0/n/s
  10. WAIT 000500 /c
  11. GETKEY /m"@C#&6AEnter #&CEX#&6A to exit."/w0
  12. ECHO 
  13.  
  14. :GETCOLOR
  15. GetKey /l2/V"COLOR"/M"#&0EEnter COLOR value (00-FFh) to test [xx]: @O"/S
  16. if .%COLOR% == .X goto ENDC
  17. GETKEY /M"#&%COLOR% This is what [##&%COLOR%] looks like!  =*=*=*=*=*=*=*=*=*  "/w0
  18. goto GETCOLOR
  19. :ENDC
  20. SET COLOR=
  21. goto SELECT
  22.  
  23. :TONES
  24. GETKEY /F"COLOTONE.GKF@T"/N
  25. cls
  26. :GETTONE
  27. GETKEY /K"1234567890ABCDEFX"/M"#&0AHex TONE value (1-F) to test {X to quit}: [?00] "/V/E
  28. if errorlevel 88 goto ENDT
  29. GETKEY /W0/M"#&20  >> &%GK%00 sounds like this: @T08#&%GK%00  @T02#&%GK%00  @T#&%GK%00"/N
  30. goto GETTONE
  31. :ENDT
  32. goto SELECT
  33.  
  34. :END
  35. SET COLOR=
  36. SET GK=
  37. GETKEY /M"#&0E@C"/W0/N
  38.